home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
stazsoftware.com
/
www.stazsoftware.com.tar
/
www.stazsoftware.com
/
futurebasic
/
sample-code
/
SwitchingToFB.sit
/
storage_bin
/
Storage Bin.main
< prev
next >
Wrap
Text File
|
2002-07-31
|
597b
|
32 lines
/*
tell the compiler that we need the routines
for the prefs file from the header folder
*/
INCLUDE "Subs PrefsFile.Incl"
// load the existing prefs
GET PREFERENCES "Storage Bin Prefs",gPref
// our finished app is named "Storage Bin"
OUTPUT FILE "Storage Bin"
// hop over to the init routines
FN initProgram
/*
set up the vectors for event handling and
dialog handling
*/
ON MENU FN handleMenu
ON DIALOG FN handledialog
// here's the main event loop
DO
HANDLEEVENTS
UNTIL gFBQuit
// store the prefs when the progam is finished
PUT PREFERENCES "Storage Bin Prefs",gPref